Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 9 з дисципліни “Основи програмування та алгоритмічні мови” Тема: Типізовані файли  Київ 2010 Постановка задачі Створити файл записів з полями: напрямок руху, номер авіарейса, тип літака, кількість вільних місць, вартість квитка, дні виконання рейсу. Визначити сумарну кількість вільних місць на літаки, що відлітають у заданому напрямку у заданий день тижня. Текст програми з коментарями uses crt; const n=3; type days=1..7; dayz=set of days; Nedelya=record Mest:byte; Stoimost:word; end; Reys=record Napravlenie:string[50]; Nomer:word; Tip:string[30]; Dni:dayz; Week:array[days] of nedelya; end; var f:file of reys; function vibor(v:days):string; var s:string; begin case v of 1:s:='Ponedelnik '; 2:s:='Vtornik '; 3:s:='Sreda '; 4:s:='Chetverg '; 5:s:='Pyatnica '; 6:s:='Subbota '; 7:s:='Voskresenie '; end; vibor:=s; end; function proverka(mnog_vo:dayz):boolean; var j,i:byte; b:boolean; begin j:=0; for i:=1 to 7 do if i in mnog_vo then inc(j); if j=7 then b:=true else b:=false; proverka:=b; end; procedure ochistka(var s:reys); var i:byte; j:days; begin with s do begin napravlenie:=''; tip:=''; nomer:=0; dni:=[]; for j:=1 to 7 do with week[j] do begin mest:=0; stoimost:=0; end; end; end; procedure vvod; var i,DenNed:integer; c:char; zapis:reys; begin rewrite(f); i:=0; repeat ochistka(zapis); with zapis do begin inc(i); clrscr; textcolor(0); write('Vvedite dannie o '); textcolor(3); write(i); textcolor(0); writeln(' samolete/rejse:'); textcolor(1); write(' vvedite Nomer samoleta: '); textcolor(4); readln(Nomer); textcolor(1); write(' vvedite Napravlenie dvigeniya samoleta: '); textcolor(4); readln(Napravlenie); textcolor(1); write(' vvedite Tip samoleta: '); textcolor(4); readln(Tip); textcolor(1); writeln(' vvedite Dni ispolneya reysa: '); writeln('1=Ponedelnik | 2=Vtornik | 3=Sreda | 4=Chetverg | 5=Pyatnica | 6=Subbota | 7=Voskresenie: '); c:=readkey; repeat DenNed:=ord(c)-48; if (DenNed>7)or(DenNed<1) then begin writeln('Dni nedeli-eto chisla v promegutke [1..7] '); c:=readkey; continue; end; if DenNed in dni then writeln('vi uge vvodili etot den') else begin textcolor(4); writeln(vibor(DenNed),':'); dni:=dni+[DenNed]; with week[DenNed] do begin textcolor(1); write(' vvedite kolichestvo svobodnix Mest na etot den nedeli: '); textcolor(4); readln(Mest); textcolor(1); write(' vvedite Cenu na bileti: '); textcolor(4); readln(Stoimost); textcolor(1); end; end; textcolor(12); if proverka(dni) then writeln('vi uge vveli vse 7 dney. Nagmite lybuy knopky.') else writeln('Esli xotite vvesti ewe 1 den-nagmite na cifry. Esli Net - to nagmite Enter '); c:=readkey; textcolor(0); until (c=#13)or proverka(dni); end; write(f,zapis); writeln('vvesti ewe 1 samolet v bazu dannix ?'); write('Esli da - to nagmite '); textcolor(4); writeln('"Enter"'); until readkey<>#13; close(f); end; procedure raspisanie; var i,j:integer; s:string; zapis:reys; begin writeln; write('=====================...